home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 162 / 162.d81 / b.mr. icon (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1997-01-01  |  4.5 KB  |  140 lines
  1. 10 poke53280,0:poke53281,0:print"[147]";
  2. 12 poke52,144:poke56,144:clr:printchr$(142)
  3. 14 dv=peek(186):ifdv<8thendv=8
  4. 16 ifpeek(49152)=76then30
  5. 18 print"loading mr.icon demo"
  6. 20 sys57812"mr. mouse",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  7. 25 sys57812"mr.i/spts",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  8. 30 ml=49152:v=ml+111:sysml:poke53281,11
  9. 32 sysml+30,5,35,5,15,255,16
  10. 34 a$(1)="                             [146]"
  11. 35 a$(2)="      loadstar presents      [146]"
  12. 36 a$(3)="      the mr. icon demo      [146]"
  13. 37 a$(4)="   programed by terry flynn  [146]"
  14. 40 poke53271,0:poke53275,0:poke53276,0
  15. 42 poke53277,0:poke53264,0:poke2040,11
  16. 45 sysml+12,6,6,a$(1)
  17. 46 sysml+12,6,7,a$(2)
  18. 47 sysml+12,6,8,a$(1):poke646,15
  19. 48 sysml+12,6,9,a$(1)
  20. 49 sysml+12,6,10,a$(3)
  21. 50 sysml+12,6,11,a$(1):poke646,12
  22. 51 sysml+12,6,12,a$(1)
  23. 52 sysml+12,6,13,a$(4)
  24. 53 sysml+12,6,14,a$(1)
  25. 55 sysml+30,16,24,17,19,255,16
  26. 57 poke646,1:sysml+12,17,18," begin [146]"
  27. 60 sysml+21,24,19:sysml+6,0,0:poke646,14
  28. 65 gosub9995
  29. 70 poke53281,0:print"[147]"+chr$(14):sysml+6,20,1:ff=999:gosub9997:ff=299
  30. 72 print"[205]r. [201]con is an add-on utility created":gosub9997
  31. 74 print"strictly for [205]r. [205]ouse. [205]r. [201]con allows":gosub9997
  32. 76 print"complete control of [205]r. [205]ouse's sprite":gosub9997
  33. 78 print"pointer."
  34. 80 print"[211]wapping sprite icons only requires":gosub9997
  35. 82 print"one quick basic command! [212]his command":gosub9997
  36. 84 print"will display any one of 64 icon shapes":gosub9997
  37. 86 print"in the color of your choosing! [217]ou":gosub9997
  38. 88 print"can use the icon shapes in this demo":gosub9997
  39. 90 print"or you can create your own custom icons":gosub9997
  40. 92 print"with any good sprite editor.":gosub9997
  41. 94 gosub9992:sysml+6,0,1:gosub9995
  42. 96 sysml+30,13,27,17,19,160,6:ff=99:gosub9997
  43. 98 gosub9992:gosub9997
  44. 100 print"[147]":sysml+6,20,1:ff=999:gosub9997:ff=299
  45. 102 print"[205]r. [201]con returns control of the sprite":gosub9997
  46. 104 print"number 0 registers to basic.":gosub9997
  47. 106 print"[212]hat means that you have multicolor,":gosub9997
  48. 108 print"[216] and [217] expand, and sprite priority":gosub9997
  49. 110 print"at your fingertips!":gosub9997
  50. 112 pokev,159:sysml+6,0,1:sysml+30,0,39,7,12,160,6
  51. 113 sysml+12,6,8," [216] [197]xpand [146]"
  52. 114 sysml+15,1,6,16,8,8
  53. 115 sysml+12,22,8," [217] [197]xpand [146]"
  54. 116 sysml+15,2,22,30,8,8
  55. 117 sysml+12,6,11," [205]ulticol [146]"
  56. 118 sysml+15,3,6,16,11,11
  57. 119 sysml+12,22,11," [208]riority [146]"
  58. 120 sysml+15,4,22,30,11,11
  59. 125 gosub9992:sysml+15,5,15,25,18,18:pokev+1,5
  60. 130 sysml+9:oncr%goto132,134,136,138,140
  61. 131 goto130
  62. 132 ifpeek(53277)thenpoke53277,0:goto130
  63. 133 poke53277,1:goto130
  64. 134 ifpeek(53271)thenpoke53271,0:goto130
  65. 135 poke53271,1:goto130
  66. 136 ifpeek(53276)thenpoke53276,0:sysml+6,0,1:goto130
  67. 137 poke53276,1:sysml+6,1,1:goto130
  68. 138 ifpeek(53275)thenpoke53275,0:goto130
  69. 139 poke53275,1:goto130
  70. 140 poke53271,0:poke53275,0:poke53276,0:poke53277,0:sysml+6,20,1:print"[147]"
  71. 150 print"[215]ith this new control over the mouse":gosub9997
  72. 152 print"sprite, mouse animation becomes a snap!":gosub9997
  73. 154 print"[200]ow about a clock icon with a rotating":gosub9997
  74. 156 print"sweep-hand?":gosub9997:ff=45:a=2:tt=12
  75. 160 sysml+6,a,7:gosub9997:sysml+9
  76. 162 a=a+1:ifa>9thena=2:tt=tt-1
  77. 164 ifttthen160
  78. 170 gosub9992:sysml+6,0,1
  79. 172 sysml+9:ifcr%<>5then172
  80. 180 sysml+6,20,1:print"[147]":ff=299
  81. 182 print"[207]r how about a targeting icon for that":gosub9997
  82. 184 print"great 'shoot em up' game you've been":gosub9997
  83. 186 print"working on? [205]aybe with a little bomb":gosub9997
  84. 188 print"animation tossed in?":gosub9997:ff=199
  85. 190 sysml+30,0,39,8,14,160,9
  86. 191 sysml+15,5,13,23,17,17
  87. 192 sysml+18,0,39,8,18:sysml+6,10,1:gosub9992:sysml+21,8,10
  88. 194 sysml+9:ifcr%=5then250
  89. 200 ifl2%=0then194
  90. 202 sysml+3
  91. 204 sysml+6,11,1:gosub9997
  92. 205 sysml+6,12,1:gosub9997
  93. 206 sysml+6,13,1:gosub9997
  94. 207 sysml+6,14,10:gosub9997
  95. 208 sysml+6,15,10:gosub9997
  96. 209 sysml+6,16,10:gosub9997
  97. 210 sysml+6,17,2:gosub9997
  98. 211 sysml+6,18,2:gosub9997
  99. 212 sysml+6,10,1:sysml:goto194
  100. 250 print"[147]":sysml+6,20,1:ff=399
  101. 252 print"[213]sing [205]r. [201]con will add a nice touch to":gosub9997
  102. 254 print"an already great mouse driver! [193]nd the":gosub9997
  103. 256 print"possibilities are only limited by your":gosub9997
  104. 258 print"own imagination.":gosub9997:sysml+30,0,39,7,13,160,15:sysml+6,0,1
  105. 260 sysml+12,6,8," [200]andpoint [146]"
  106. 262 sysml+12,22,8," [205]ousetail [146]"
  107. 264 sysml+12,6,11," [200]appyface [146]"
  108. 267 sysml+12,22,11," [211]top [211]ign [146]"
  109. 270 sysml+15,5,10,30,18,18:pokev+1,5
  110. 272 sysml+30,10,30,17,19,160,14:cs=peek(646)
  111. 274 poke646,6:sysml+12,10,18," [210]eturn to [204]oadstar? [146]":poke646,cs
  112. 275 sysml+9:oncr%goto282,284,286,288,300
  113. 280 goto275
  114. 282 sysml+6,21,10:goto275
  115. 284 sysml+6,24,9:goto275
  116. 286 sysml+6,23,7:goto275
  117. 288 sysml+6,22,8:goto275
  118. 300 print"[147]":poke53269,0:poke198,0:goto40000
  119. 9990 getz$:ifz$=""then9990
  120. 9991 sysml+3:poke53269,0:poke53281,0:print"[147][154]";:list-9990
  121. 9992 sysml+30,13,27,17,19,160,14:cs=peek(646)
  122. 9993 poke646,6:sysml+12,15,18," continue? [146]":poke646,cs:return
  123. 9994 :
  124. 9995 getz$:ifz$=""then9995
  125. 9996 poke198,0:return
  126. 9997 forf=0toff:next:return
  127. 9998 :
  128. 9999 :
  129. 10000 n$="b.mr.icon/demo":open1,8,15,"s0:"+n$:close1:saven$,8
  130. 40000 sysml+3:u=828:fori=0to21:pokeu+i,8+i:next
  131. 40010 ifdv<8ordv>29ordv=8then40030
  132. 40020 a=peek(u):b=peek(u+dv-8):pokeu,b:pokeu+dv-8,a
  133. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  134. 40040 close2:open2,i,2:close2:ifstthen40060
  135. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  136. 40060 next:print"[147]":poke53272,23:poke186,8:end
  137. 40070 q$=chr$(34):poke646,0:print"[147]":poke53272,23
  138. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  139. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  140.